home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_enscript.idb / usr / freeware / share / enscript / hl / ksh.st.z / ksh.st
Encoding:
Text File  |  2002-04-08  |  1.7 KB  |  71 lines
  1. /**
  2.  * Name: ksh
  3.  * Description: Korn shell programming language.
  4.  * Author: Jean-Marc Calvez <jean-marc.calvez@st.com>
  5.  */
  6.  
  7. state ksh extends HighlightEntry
  8. {
  9.   /(\${*#[a-zA-Z0-9_]*})/ {
  10.     language_print ($0);
  11.   }
  12.  
  13.   /* Comments. */
  14.   /#/ {
  15.     comment_face (true);
  16.     language_print ($0);
  17.     call (eat_one_line);
  18.     comment_face (false);
  19.   }
  20.  
  21.   /* String constants. */
  22.   /\"/ {
  23.     string_face (true);
  24.     language_print ($0);
  25.     call (c_string);
  26.     string_face (false);
  27.   }
  28.  
  29.   /* Excutable script. */
  30.   /^#!/ {
  31.     reference_face (true);
  32.     language_print ($0);
  33.     call (eat_one_line);
  34.     reference_face (false);
  35.   }
  36.  
  37.   /* Keywords:
  38.      (build-re '(: alias bg break continue cd command eval exec exit export
  39.      fc fg getopts hash jobs kill let login newgrp print pwd read readonly
  40.      return set shift stop suspend test times trap type typeset ulimit umask
  41.      unalias unset wait whence for in do done select case esac if then elif
  42.      else fi while until function time))
  43.   */
  44.   /\b(:|alias|b(g|reak)|c(ase|d|o(mmand|ntinue))|do(|ne)\
  45. |e(l(if|se)|sac|val|x(ec|it|port))|f(c|g|i|or|unction)|getopts|hash\
  46. |i(f|n)|jobs|kill|l(et|ogin)|newgrp|p(rint|wd)|re(ad(|only)|turn)\
  47. |s(e(lect|t)|hift|top|uspend)|t(est|hen|ime(|s)|rap|ype(|set))\
  48. |u(limit|mask|n(alias|set|til))|w(ait|h(ence|ile)))\b/ {
  49.     keyword_face (true);
  50.     language_print ($0);
  51.     keyword_face (false);
  52.   }
  53.  
  54.   /* exported aliases (built-in)
  55.      (build-re '(autoload false functions hash history integer nohup r true
  56.      type))
  57.   */
  58.   /\b(autoload|f(alse|unctions)|h(ash|istory)|integer|nohup|r|t(rue|ype))\b/ {
  59.     builtin_face (true);
  60.     language_print ($0);
  61.     builtin_face (false);
  62.   }
  63. }
  64.  
  65.  
  66. /*
  67. Local variables:
  68. mode: c
  69. End:
  70. */
  71.